home *** CD-ROM | disk | FTP | other *** search
/ Science Fair / Science Fair.iso / pc / working / work.dir / 00815.ls < prev    next >
Encoding:
Text File  |  1995-03-27  |  450 b   |  17 lines
  1. on mouseUp
  2.   global gObjects, gFlag
  3.   puppetSound("ding")
  4.   repeat with i = 1 to gObjects
  5.     if getAt(gFlag, i) = 0 then
  6.       set the visible of sprite (i + 10) to 0
  7.       set the visible of sprite (i + 20) to 1
  8.       set the visible of sprite (i + 30) to 1
  9.       next repeat
  10.     end if
  11.     set the visible of sprite (i + 10) to 1
  12.     set the visible of sprite (i + 20) to 0
  13.     set the visible of sprite (i + 30) to 0
  14.   end repeat
  15.   play done
  16. end
  17.